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ZTITLE ‘SMGSALLOW cate - Virtual Display -- Allow escape sequences’ 
MODULE SMGSALLOW ESCAP 
JOENT = Ef -003° ! File: SMGDISCHA.B32 Edit: PLL1003 
BEGIN 


. 
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'@ ev 

D009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ° 
001 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
“d :: ALL RIGHTS RESERVED. : 
5018 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
D018 1 is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
D015 1 is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
9016 | is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO-ANY © 
001 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
D018 | is TRANSFERRED. . 
0020 1 i* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

1 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

¢ | fs CORPORATION. ‘ 

4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

is SOFTWARE ON EQUIPMENT WHICH 1$ NOT SUPPLIED BY DIGITAL. : 

i 

; | paneeseeebaneanbaimnennaneeberienecesennditnenetenheutabenauibaimenineeed 

0 

1 1 f+ 

¢ ! FACILITY: Screen Management 


i ABSTRACT: 


This routine sets a bit in the DCB data base to allow escape 
sequences to be parsed and interpretted. 


1 
1 
v 
1 
1 
' 
i 
1 

ENVIRONMENT: User mode, Shared Library routines. 
AUTHOR: P. Levesque, CREATION DATE: 23-Aug-1983 
MODIFIED BY: 

1 

! 

' 

' 

' 

' 

' 


! 1-001 - Origina al. Put 23-Aug-1983 
! 1-002 - Make this a single gol her entry point and add an optional 
: device parameter. 
! 1-003 - Remove optional ae parameter. Feature was never implemented. 
Also, change, phe way the simulated device type is chosen. 
ar-19 
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FPESALLOW_ESCAP SMGSALLOW_ESCAPE = Virtual Display -=- Allow esc 1b-se0-1964 90:18:97 


Declarations 


—_ 


SSBTTL "Declarations’ 
| SWITCHES: 


: i } 
: 1 

3 8 1 

; 1 

3 1! 

: : ! ; LINKAGES: 

; 62 1 NONE 

; 66 : 1! 

; fe i TABLE OF CONTENTS: 
; 68 FORWARD ROUTINE 

: 16 3 SMGSALLOW_ESCAPE; 
: re 71 1 

i: ¥ ze 1 ! INCLUDE FILES 

: 7% 7313 

3 75 74 «1 

: 6 es 1 REQUIRE 'RTLIN:SMGPROLOG'; 
?. . 0153 1 

3 8 0154 1 

3 D155 1 EXTERNA 

; 80 4 6 SMG$_FATERRLIB, 

: 88 1 SmeSCINVONS ID 

: 0160 1 SMG$_WRONUMARG: 

3 5 gies 1 

: 162 1 !<BLF/PAGE> 


p-1 


! set allow escape bit 


! defines psects, macros, tcb, 
! web, & terminal symbols 


Fatal error in SMG$ -- internal consistancy 
check failed. 

Invalid argument 

Invalid virtual display id 

Wrong number of arguments 


AX-11 Blis 
SMGRTL. SRC 


Tsncalcése 682: sage 


re 
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7aG08 V~FSCAP SRSALLOMZESCAPE = Allow escape sequences to di incsepm19be $s:08:67 — Eenaetu SRedsacaLcésc 682: 1 feng 

BSBTTL *SMGSALLOW ESCAPE 
| GLOBAL ROUTINE SMGSALLOW 


re 


= Allow escape sequences to display’ 
Fee ( 
BISPLAY_ID, 
ESC_FLAG REF VECTOR C,LONG) 
= 
lee 
FUNCTIONAL DESCRIPTION: 


Text written to a virtual display normally cannot contain 
escape sequences. An escape sequence is usually treated as 
a terminator. This routine allows escape sequences sent to 


; } : 
; 1 : 
3 1 : 
; 1 : 
3 1! 3 
3 1} 3 
3 5 1! 3 
3 1! 3 
ss. 1! 3 
3; F 1! 3 
3 1 ee : a virtual display to be re-interpretted as valid operations. : 
; } 1 6 ! ! The device simulated is the device type of the pasteboard. : 
; } 5 es : This routine does not cause any output to occur. : 
: 5 0 | CALLING SEQUENCE: 
: 1 ; 1: ret_status.wic.v = SMGSALLOW ESCAPE ( ; 
; 109 . | ESC_FLAG.rl.r . 
; 110 . 3% 3 
ett 1 | FORMAL PARAMETERS: : 
; 118 : DISPLAY_ID.rl.r Display id of desired virtual display. : 
115 1 ESC_FLAG.rl.r Flag to turn on & off escape parsing : 
3 118 4 ! Passed by reference, 0 = off and 1 = on ; 
; 118 38 1 | IMPLICIT INPUTS: 
FY 9% 1! : 
3 ; 95 ! NONE : 
> 4 g 3 1! IMPLICIT OUTPUTS: ; 
3 98 1! : 
: 126 9 1} NONE : 
i 196 } 1 | COMPLETION STATUS: 
; } : : SS$_NORMAL Normal successful completion : 
Ss 5 1 1 SIDE EFFECTS: : 
> $31 . 7 : 
> 4 é 1 i NONE : 
s * 1 !e- 3 
3 ' : BEGIN : 
: 1 18 BUILTIN : 
3; 1 if NULLPARAMETER; : 
| le CAL : 
; 140 15 CURR PP. : REF SPP DECL. ' addr of pasting packet : 
: 161 6 PBCB”: REF $PBCB_BECL ' addr of pasteboard control block 3 
: 1468 DCB : REF BLOCK [,BYTE); i Addr of display control block : 
164 i$ LITERAL : 


7 
SALLOW_ESCAP SMGSALLOW_ESC - Virtual Display -- Allow es 18-5 -1 712: AX-11 Bliss-32 V4.0-74 
37808 SMGSALLOWCESEAPE = Allow escape sequences to di 1 300-1 38% 99:38:95 SMGRTL” atishcat césc. 682; 
K_DEVICE_ARG = 3; 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); se 


ddress of display control 


on 
o 
roe 


SSMGSVALIDATE_ARGCOUNT (2,2); 


1+ 

! There are two vers to get escape persing. One is automatic, with the 
i autobended L1B$/SCR$ routines. This case sets DCB_V_ALLOW_ESC an 

! DCB_V_AUTOBENDED. The second case is by SMG$ user request - this sets 
H only BCB_V_ALLOW_ESC. 


If .ESC_FLAG CO) NEQ 0 
ese’ COCB_V_ALLOW_ESC) = 1 
DCB COCB_V_ALLOW_ESCJ = 0; 
'¢ 


i Set up the device type to simulate. Use the pasteboard 
device type. 


CURR_PP = .DCB C[DCB_A_PP_NEXT]; 
PBCB™= .CURR_PP CPP"A-PBCB_ADDR); 
SELECTONE .PBCB CPBCB_B_PHY_DEV_TYPE] OF 


CpTs vise DT$_vT55): 
6ce COcB_SIM_DEV_TYPE) = vTS52; 


COTHERWISEJ: 
yh ie 
DEVDEPEND2 = PBCB CPBCB_L_DEVDEPEND2) : BLOCK C,BYTE); 
IF .DEVDEPEND2 CTT2$V_ANSICRTJ 
DCB COCB_SIM_DEV_TYPE] = vT100 


ELSE 
END DCB CDCB_SIM_DEV_TYPE] = UNKNOWN; 
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QE AEAN HS SSNS ARAN SS USP a Ooo GA Rea HO Doe aN 
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TES; 
RETURN (SS$_NORMAL) ; 
END; 
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! End of routine SMGSALLOW_ESCAPE 


play -- Allow esc 


-IDENT \1-003\ 


-EXTRN SMGS_FATERRLIB, SMGS_INVARG 
sEXTRN SMGS_INVDIS_ID, SMGS_WRONUMARG 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


-TITLE SMGSALLOW_ESCAPE SRESALLOS TSCA - Virtual Dis 


a3 


L) 
$ALLOWLESCAP SRepAtoy EEEARE > K{CtuMl Display cz allow eng 1E-Seer1SRe QO:4307 YAHE da4c¥2 Nts 0e742 ee 


0004 ENTRY SMGSALL OW rf Scare. Save R2 
50 0 8 MOVL 
04 BC 8 A cReL {Rod "st eptay. 1D 
1 a | CAPS (RO), #17 
50 000000006 SF v6 MOVL #SMGS_INVDIS_ID, RO 


MOVL @DISPLAY_ID, DCB 
CMPB AP), #2 


4} 


BEQL ; 

50 000000006 &F v0 MOVE #SMG$_WRONUMARG, RO ; 
TSTL SC_FLAG ; 

* 06 : BEQL " : 

34 «OAT 8 BI S62 #32, 52(DCB) ; 
3% COA 0 8A BICB2 #32, 52(DCB) : 
20 «Al 00 VL (6CB), CURR_PP : 

14 AO p VL (CURR’PP), PBCB F 

¢ ro a ROvZBL B3(PacRy, Re 

41 BF 5 SECU GS ks ; 
6 1A BGTRU 6 ; : 

a Y) 00 MOVL , 92¢DCB) : 
D1 BRB : 

06 63 AO £9 BLBC 99(PBcB) : 

5c AN 0 D0 MOVL Otay: : 
SC OAT OG CLRL § 92 (DCB) : 

50 01 DO 0 MOVL , : 

04 RET 3 


; Routine Size: 105 bytes, Routine Base: _SMGSCODE + 0000 


3 192 0267 1 !<BLF/PAGE> 
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TmG0SM-FSCAP SRESALLOMCESEAPE = Allow escape sequences toa! ixcsep-ione 19:08:57 — EgMante“SReSsAGaLcesc 682: ane 
: 4 GLOBAL BIND ROUTINE SHGSSALLOU_ESCAP Leni ESCAPE: 
1% a8 1 1 <BLF /PAGE> scan go vay by release tine 


MGSALLOW_ESCAP SMGSALLOW.ESCAPE = Virtual Display <= Allow esc 18-Sep-1984 00:12:07 _VAX=11 Bliss-32 v6.0 p 7 
-00 5 oe to di as ris I et 


—n 
pe 


3 SMGSALLOW-ESCAPE = Allow escape sequences to 14-Sep- SMGRT i°3 CISMGALLESC. 5 2;1 (5) 

; 198 END ! End of module SMGSALLOW_ESCAPE 

199 0378 | 1 : " 

200 75 0 ELUDOM 

SMGSSALLOW_ESCAPE== SMGSALLOW_ESCAPE 

; PSECT SUMMARY 
: Name Bytes Attributes 
: _SMGSCODE 105 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


"Y Used: 63 pages 
; os ation Complete 


RCL Ee tea ra SEC. eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped me 

: ~$255$DUA28: SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 
3; _$255$DUA28:CSMGRIL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
; _$255$0UA28:CSMGRIL.OBJJSMGLIB.L32;1 469 18 3 38 00:00.4 
: COMMAND QUALIFIERS 

3 FL ESR/EMERE OCT BELG SUEY EA, OPT IME LE )/UDTRACE A PEALE SDs SHOALS SCOR L90R. 0 SOMA ESE MSRC$: SMGALLESC/UPDATE=(ENH$: SMGALLESC 
3 piece 105 code + 0 data bytes 

; Run Time: 00:04.9 

3 od Time: 00:21.6 

3; Lines/CPU Min 349 

; Lexenes/CPU-in: 13067 
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